home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Clue.dxr / 00010_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-09-17  |  1.1 KB  |  23 lines
  1. global gMasterData, gClueData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData resultsList
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "Your input from Get a Clue:" & RETURN & "--------------------------------------------------" & RETURN after vTempText
  18.   put "Making Inferences is a challenging critical thinking skill. It requires that we sometimes go beyond the information in the problem or text. An inference is your best guess given the facts of the situation and based upon your past experience and general knowledge." & RETURN & RETURN after vTempText
  19.   put the text of member "xprint" & RETURN after vTempText
  20.   put "The score for the activity was:" && string(the score of gClueData) & RETURN & RETURN after vTempText
  21.   set the text of member vThisField to vTempText
  22. end
  23.